
EDITORIAL 


C L COMPUTADOR PERSONAL es un concepto y una 
actividad que nació con el uso de los microcomputado- 
resj como una herramienta de sobremesa en actividades 
más relacionadas con la toma de decisiones, que con activi¬ 
dades características de los computadores. 

Si bien es cierto, que los computadores con su capacidad 
de ordenamiento de datos dentro de la empresa, ha signifi¬ 
cado que la toma de decisiones sea sistematizada como nunca 
antes lo fue, la aparición del programa VISICALC, desarro¬ 
llado en principio como algo propio de los microcomputado- 
res, marcó un hito importante en el uso de los computadores 
personales en la gran empresa, específicamente en el área de 
Finanzas, pues permitió hacer un modelo financiero de la 
empresa a un costo mínimo. Lo anterior se tradujo en que 
los ejecutivos pudieran hacer todo tipo de sensibilizaciones 
en forma inmediata, sin tener que recurrir al Departamento 
de Informática y Computación de la empresa, que con otras 
prioridades nunca podía ser oportuno y efectivo con la infor¬ 
mación solicitada por el departamento en particular. 

Las sensibilizaciones nos permiten entrar en el juego de 
auscultar el futuro financiero de la empresa, utilizando un 
modelo que responda a todas las preguntas de: ¿qué pasaría 
si?, al modificar cualquiera de los parámetros del modelo 
que representa al negocio. 

Las Bases de Datos, son también otra de las principa¬ 
les aplicaciones del Computador Personal en manos de un 
profesional o ejecutivo de empresa. 

En ésta se pueden almacenar los antecedentes histó¬ 
ricos, resumidos o clasificados, de una actividad particular. 
Una buena Base de Datos, nos permite luego jugar con estos 
antecedentes y empezar a conocerlos como nunca antes. 


Las Bases de Datos actúan como veloces kárdexs electrónicos 
que entregan sus antecedentes en distintas clasificaciones y 
prioridades, como también corregirlas y actualizarlas con 
mucha rapidez. Sus listados de informes, nos permiten orde¬ 
nar y clasificar esta importante información. 

Los famosos diagramas de barras, como también ios 
gráficos de tortas, tienen la virtud de entregar valiosa infor¬ 
mación en una fracción de segundos, la cual en forma de 
listados estadísticos necesita de varios minutos para ser ana¬ 
lizada. Los programas graficadores de datos, han pasado a 
constituir parte importante del quehacer del Computador 
Personal. 

Finalmente, una de las mayores aplicaciones que alcan¬ 
zan los Computadores Personales hoy en día, es en el Proce¬ 
samiento de Textos. Estos programas implican una gran eco¬ 
nomía de tiempo en la preparación de informes, cartas, artícu¬ 
los, publicaciones y todo tipo de documentos escritos. 

El Computador ATARI 800 XL, asociado a una dis- 
kettera ATARI 1050, representa hoy en día la mejor y más 
económica solución en materia de Computación Personal, ya 
que dispone de una serie de excelentes programas para este 
fin, como son: VISICALC como planilla electrónica, FILE 
MANAGER, SYNFILE y DATA PERFECT como Bases de 
Datos y ATARI WRITER como Procesador de Textos. 

Y más aún, ya que hoy se encuentra disponible el 
SYNCALC, obra maestra en planillas electrónicas, similar al 
famoso LOTUS 12 3, con la gran diferencia, que este último 
cuesta más de cuatro veces el valor del SYNCALC y debe 
ser utilizado en un equipo con un costo que supera en más 
de 10 veces a una configuración con ATARI 800 XL. 

CUESTA CREERLO ¿VERDAD? 




y 


ATARI* MICROCOMPUTADORES 
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HARDWARE DEL MES 


BT - 312 KM 

MONITOR 12" BLANCO Y NEGRO 

El computador ATARI 800 XL, dispone de una salida poste¬ 
rior para conectarle un monitor de video, a colores o blanco 
y negro, según necesidad. 

El Monitor Blanco y Negro BT-312 KM de 12 pulgadas, 
es una excelente solución de bajo costo y alta nitidez de ima¬ 
gen, debido a la mayor resolución y estabilidad de la imagen 
presentada. 

Para muchas aplicaciones profesionales, como procesa¬ 
miento de textos, manejo de bases de datos, planillas elec¬ 
trónicas tipo VISICALC y otros, que no requieren el uso de 
las capacidades de colores del computador ATARI, la utiliza¬ 
ción del monitor de video BT-312 KM, representa la mejor 
solución al menor precio como pantalla. 



Para una demostración del mismo, acérquese a su distri¬ 
buidor ATARI más cercano. 


BUZON 
ATARI 

Señor Director: 

Primero que nada, vayan mis felicitaciones para ustedes 
por su excelente Boletín Informativo ATARI. 

Mi consulta particular, se refiere a cómo lograr construir la 
instrucción TAB(X) —que otros lenguajes BASIC disponen— 
para poder tabular, dado que el ATARI BASIC no la tiene, y 
muchas veces es necesario ubicar la información en algún lugar 
específico de la pantalla o impresora. 

Esperando su ayuda al respecto, le saluda atentamente, 

Gastón Rioseco V. 
Antofagasta 

□ R.D. 

Muchas gracias por sus palabras de estímulo y nos senti¬ 
mos satisfechos de poder atender las consultas de nuestros 
dientes. 

Efectivamente, el lenguaje ATARI BASIC no dispone de 
la instrucción TAB(X) para tabular, como es el caso de 
ATARI MICROSOFT BASIC. Sin embargo, resulta muy 
simple imp/ementar una solución al respecto, que cumple 
exactamente con la misma función. 

10 REM Implementación función TAB(X) 

20 DIM TAB$(40) 

22 REM llena con 40 blancos TAB$ 

30 TAB$(1) =" TAB$(40) = TAB$: TAB$(2) =TAB$ 

32 REM limpia pantalla 
40 PRINT CHR$(125) 

50 PRINT "INGRESE COORDENADA X, 2>X<30:";: 
INPUTX 

60 PRINT "INGRESE NUMERO INICIAL, 1 >N <20: : 

INPUT N 

62 REM el número 6 es la cantidad de la palabra NUMERO 
70 PRINT : PRINT TAB$(1, X); "NUMERO" ; TAB$(1, 20-6); 

"CUADRADO" 

80 PRINT 

90 FORP = NT05*N 
94 REM STR$ = convierte numerosa letras 
100 Q — LEN(STR$(P)) 

110 PRINT TAB$(1, X); P; TAB$(1, 20 — Q); P * P 
120 NEXTP 
130 END 
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SOFTWARE DEL MES 


CONOCIENDO EL UNIVERSO desarrolla la comprensión 
acerca del medio que rodea al hombre, de la importancia de los 
avances de las ciencias para conocer el mundo. Cada unidad 
tiene test de evaluación de conocimientos. 




CURSO 
LOGO EN 
ESPAÑOL 


GRAMATICA DE LA TORTUGA 

(continuación) 


VARIABLES 

La mejor manera de entender las variables de LOGO es ima¬ 
ginarlas como receptáculos con nombres afuera y contenido 
dentro. Los dos puntos al comienzo de una palabra indican 
que su contenido debe estar disponible para el procedimiento. 
Si se ti pea: 

IM :JUAN 

El LOGO busca un casillero denominado JUAN. Si 
encuentra uno, busca en su interior y realiza todo lo que se 
encuentra disponible para IM. 

El procedimiento IM enseguida despliega el contenido 
(valor) de JUAN en la pantalla. Si no encuentra algo en su in¬ 
terior, imprime un mensaje de error: 

JUAN SIN VALOR 

Existen dos formas de poner cosas o valores dentro de 
estos casilleros. El primero ya está explicado y consiste en usar 
procedimientos con ENTRADAS.^ 

El segundo es usando el comando HAZ. 

HAZ "JUAN 25 \ y 

IM :JUAN 

25 

El procedimiento HAZ necesita dos ENTRADAS: una 
palabra y un valor que puede ser una palabra, una lista o un 
número. Aquí se crea un casillero llamado JUAN y coloca 25 
en su interior. 

Tenga presente que un procedimiento no detiene su eje¬ 
cución cuando llama a un subprocedimiento. Así, una variable 
local de un procedimiento puede ser usado por sus subproce¬ 
dimientos. i 
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EN QUE CONSISTE UNA LINEA LOGO 

La definición de ^procedimientos consiste en líneas de ins¬ 
trucciones. Estas se llaman líneas LOGO debido a que pueden 
ser mucho más largas que una línea física de la pantalla, por 
ejemplo: 

HAZ "VARIOSNOMBRES [ JOSE JUAN PEDRO 
MARIA-*JUANA ROSA ] 

La flecha ( -+ ) indica que la próxima línea de la pantalla 
es una continuación de la primera línea LOGO. Para conse¬ 
guir líneas más largas, sólo es necesario seguir escribiendo sin 
presionar la tecla RETURN. 

Resumiendo podemos decir que: 

1. Cada vez que se use un procedimiento, asegúrese de saber: 

a) Cuantas entradas tiene 

b) Cuando es un comando u operación 

2. La primera palabra de una línea LOGO debe ser siempre 
un comando. 

3. Una operación siempre es una entrada para otro procedi¬ 
miento. 

4. Asegúrese de contabilizar cada entrada para procedi¬ 
miento. 

5. Cuando las entradas o un comando han sido contabili¬ 
zados, el próximo procedimiento debe ser otro comando. 

El siguiente ejemplo muestra líneas de LOGO más com¬ 
plejas: 

CR COMENTARIO :ADJ 

IM SE [ TU ERES ] :ADJ 

IM SE [ YO SOY ] PLBR SU :ADJ "ISIMO 

FIN 

COMENTARIO "DIVERTIDO 
TU ERES DIVERTIDO 
YO SOY DIVERTIDISIMO 


LAS TORTUGAS MULTIPLES 

El ATARI LOGO tiene cuatro tortugas para realizar tareas 
gráficas y se le pueden asignar tareas específicas a cada una 
mediante distintas instrucciones. Las tortugas se identifican 
por su nombre, que son 0, 1,2 y 3. Cuando es la primera ins¬ 
trucción gráfica, es la tortuga 0 que aparece y realiza las ta¬ 
reas solicitadas. 

Para mandar a otra tortuga se activa con la instrucción 
DI LE enseguida del número que representa a la tortuga de 
interés. Luego, todas las instrucciones que se ordenen, serán 
realizadas por dicha tortuga. Ejemplo: 

CRCUADRADO : LADO 

REPITE 4 [AV :LADO DE 90 ] 

FIN 







5 


CENTRO ATARI 
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DI LE 3 CUADRADO 25 
A V 50 
DE 45 

CUADRADO 10 

La tortuga 3 hará un cuadrado de 25 por lado, luego avan¬ 
zará 50 pasitos, girará 45 grados a la derecha y hará un cua¬ 
drado más pequeño de 10 pasitos por lado. 

Se pueden activar varias tortugas juntas a la vez con el 
comando DILE seguido de una lista de números representando 
las tortugas que se deseen activar. 

Ejemplo: 

DILE [012] 

CUADRADO 28 

Las tres tortugas en forma simultánea harán un cuadrado 
de 28 pasitos, partiendo de la posición en que se encuentren, 
que puede ser cualquier lugar de la pantalla o campo de acción. 

Para que las instrucciones sean ejecutadas secuencial- 
mente, por cada tortuga se utiliza la instrucción CADA seguida 
de una lista de instrucciones a ejecutar. Las tortugas que rea¬ 
lizarán esta acción serán aquellas que previamente se han 
activado con la instrucción DI LE. 

Ejemplo: 

CR PONE 

LM DILE [0123] 

CADA [ DE 90 * QT? ] 

FIN 

Primer caso: 

PONE 

DILE [ 0 1 2 3] REPITE 4 [ AV 50 DE 90 ] 

Segundo caso: 

PONE 

CADA [ REPITE 4 [ AV 50 DE 90 ] ] 

En el primer caso las tortugas en forma simultánea harán 
un cuadrado. 

En el segundo caso cada tortuga hará un cuadrado en 
forma secuencial, es decir, primero la tortuga 0 hará el cua¬ 
drado y las otras esperarán su turno, luego la 2 y así sucesiva¬ 
mente. 

Existe otra forma de dirigirse a una tortuga para que rea¬ 
lice una actividad. Es la instrucción Pl que significa pide. Esta 
instrucción no afecta la situación de las tortugas activas. La 
instrucción Pl va seguida de un número o lista de números 
que representan a las tortugas, y de una lista de instrucciones. 
Una vez que las tortugas llamadas con Pl terminan su tarea, 
vuelven a su estatus anterior, es decir, las que estaban activas 
(con la instrucción DILE) siguen activas. Las que habiendo 
actuado bajo el comando Pl y no estaban previamente acti¬ 
vadas, luego de la ejecución de la lista de instrucciones, vuelven 
a quedar inactivas. 

A su vez existe una instrucción que permite conocer las 
tortugas activas en un determinado momento. La instrucción 
QT? nos entrega un número o lista de números que repre¬ 
sentan a las tortugas previamente activadas con la instrucción 
DILE. 


Ejemplo: 

DILE 1 TG 
DILE 2 TG 
IM QT? 

2 

SL PONXY [-30 0 ] 

PONR Pl 1 [ RUMBO? ] 

IM QT? 

2 

En la segunda línea del ejemplo (DILE 2 TG) queda 
activa sólo la tortuga 2. 

En la quinta línea la tortuga 2 es colocada en la coorde¬ 
nada X = —30 e Y = 0. 

En la sexta línea su cabeza apunta hacia abajo o rumbo 

180. 

En la séptima línea se le ordena a la tortuga activa que 
ponga el mismo rumbo de la tortuga 1. 

Finalmente IM QT? nos indica que la tortuga activa 
sigue siendo la 2. 



Las instrucciones empleadas en este artículo, corresponden 
ai cartridge LOGO EN ESPAÑOL de ia fotografía. 
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A continuación se entrega una descripción del programa: ^ 



* programe 
su Atari 
con el profesor 
von Byte 

En múltiples ocasiones, y especialmente con el manejo de 
archivos, se requiere de algún método de búsqueda de un 
registro específico, dentro de algún gran string que contiene 
todos los registros del archivo. Por ejemplo, supongamos que 
tenemos un archivo de información que contiene registros de 
clientes, con los siguientes datos: 

Código del cliente ( 3 bytes) 

Nombre del cliente (25 bytes) Largo total 

Dirección del cliente (25 bytes) del registro: 78 bytes 
Ciudad del cliente (15 bytes) 

RUT del cliente (10 bytes) 

Cada uno de estos registros se encuentra almacenado 
dentro de un gran string; uno a continuación de otro, conte¬ 
niendo la información de cada uno de los clientes. 

Cuando se desea ubicar un cliente en particular, digamos 
por el código, es necesario recorrer el string comparando el 
registro buscado con cada uno de los registros del archivo. 
Naturalmente, cuando el número de registros totales es ele¬ 
vado y esta operación se realiza en lenguaje BASIC, el tiempo 
requerido para encontrar el registro puede ser considerable, 
transformándose en un método ineficiente. 

Justamente para solucionar este problema, en la columna 
de este mes, se entrega una subrutina en lenguaje de máquina 
para realizar esta operación, la que prácticamente transforma 
la búsqueda en un proceso instantáneo. 

El listado adjunto, entrega un pequeño programa de 
ejemplo que hace uso de la subrutina de máquina ubicada 
entre las líneas 1000 a 1100. 


Línea 10: Dimensionamiento de las variables de string a uti¬ 
lizar. En STRINGS se almacenarán los registros, en B9$ 
se mantiene la rutina de máquina y REG$ corresponde 
al registro que se desea buscar dentro de STRING$. 

Línea 110: Se va a la rutina de la línea 1000 donde se carga 
en B9$ la subrutina de máquina para la búsqueda. 

Línea 120: Se rellena de corazones el string total STRINGS. 

Línea 130: Se asignan los valores del largo y número total 
de registros. 

Líneas 140-180: Se ingresa información en el string REG$ 
y se ubica ésta al azar dentro del string STR ING$. 

Líneas 190-320: Se muestra en pantalla la ubicación donde 
queda almacenado REG$ dentro del gran string STR ING$ 

Línea 330: Se pide ahora la información de REG$ para pro¬ 
ceder a la búsqueda dentro de STRINGS. 

Línea 340: Se ejecuta la subrutina en lenguaje de máquina 
para realizar la búsqueda, entregando los parámetros 
indicados a la instrucción USR. 

Líneas 350-360: Si como resultado la variable C = 0, significa 
que el string REGS no se encuentra dentro de STRINGS. 

Líneas 370-450: Si C = 0, significará que lo encontró y lo 
despliega en pantalla. Luego consulta si desea continuar 
la búsqueda con otro string. 

Líneas 1000-1030: Lee la subrutina de máquina y la almacena 
como caracteres en la variable B9$. 

Líneas 1040-1100: Datos correspondientes a la subrutina en 
lenguaje de máquina. 
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1 50 L REG= LEN í REG$) : I F LREG— 0 THEN GOTO 
1 4 0 

135 REM NREG==No R ©g i •=. t r o 
1 5 é- REM P I =Pos i c i on I n i c i a. 1 

1 37 REM PF=Po © i c i on F i n a. 1 

1 58 REM D© n t r o d© ST R I NG¡$- 

1 3 9 R EM i£ i£ & i£ !£ Y £ !£ Y & £ i£ i£ $ fc' % £ # ^ £ # ;*» 

1 ..60 NREG“ I NT < RND < 0 > -ÍTREG> : P I = I NT < NREG & 

LREG+ 1 : PF-P1 +LREG- 1 

1 70 STR I NG'í' P I , RF) ~REGT 
1 8 0 T R A P 2 0 0 0 
1 9 0 G R A P H I C S 0 
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2 0 0 ? " N u m <-3 r o regi ■» t r o M .a x i m o — " ;TREG 

2 10 ■? CHR»(t 34) ; REGÍ ! CHR* < 34) 

2 20 '? 11 Pos i c 1 orí inicial en STR INBÍ es 

230 ? " STR ING$ < " ; P I ; " , " ; p? ; " > 11 

240 POPE 752,1 

250 2 "DESEA VER REGISTRO EN STRING* S 

XN " ; : INPUT RESP* 

260 IF RESP*<>"S" THEN GOTO 280 

270 ■? STR I NG* : FOR PAUSA- 1 TO 30 0 tNEXT 

PA U SA 

2S0 GRAPHICS 0 

290 ■? CHR* C 34) 5 REGÍ ; CHR* < 34) 

.3 0 0 '? "ENCONTRADO EN LAS SOTES. POSICI 

ONES" 

310 ? "POS.INICIAL =";PI;" POS.FINAL = 

" ; PF 

320 ■? " STR I NG* i" ; P I ; " , " ; PF ; " ) " 

3 30 '? " DEME I NFORMAC I ON A BUSCAR" : POKE 

752,0:INPUT REGÍ:LREG—LENCREGÍ):C—0 

340 C=USR< ADR( B9Í) , TREG , ADR < STR I.NGÍ) .A 
DR(REGÍ),LR,LREG) 

350 IF C=0 THEN POSITION ó, 10:? " Hijiarta 

" : POS I T I ON 2 , 12':? 
"PRESIONE RETURN PARA PROBAR OTRA VEZ" 

3*0 IF C=0 THEN INPUT Rí:REGÍ=""¡GOTO 

2S0 

370 GRAPHICS 0 

3S0 '? "LARGO DE ST R I NGÍ= “ ; L EN < ST R I NG* ) 

3 9 0 '? "Cant.Reg. M a x i m o — " ; T R E G 

4 0 0 ? CHRÍ134) i REGÍ 5CHRÍ<34) Local iza 

do c orri o reg.tt =" 1TREG-C 

4 10 SP= (. TREG — C) LR + 1 
420 '? STRINGÍÍ SP , SP+LR- 1) 

430 ? "BUSCA MAS INFORMACION EN STRING 

* S/N "!¡INPUT RESP*:REGÍ-"" 

440 IF RESP*-"S" THEN GOTO 330 
450 GOTO 140 

1000 1=1:SRCH—0 

1010 READ SRCH:IF SRCH=-1 THEN RETURN 
10 20 POKE -.70 8 , Rl-1D < 0 ) *250 : P OKE 70 9 , RND < 
0 ) ¥ 2 5G 

10 30 B9* C I , I)—CHR* C SRCH) : I = I+ 1 ;GOTO 10 
1 0 

1 0 4 O DAT A 2 1.6 , 10 4, 104, 1 3 3 i, 2 0 4 , 104, 133, 

20 3, 10 4, 1 33,20 9, 104, 133,208, 104, 133,21 

5, 10 4, 133,214 

1 0'5 0 DAT A 10 4, 104, 133,205, 104, 104, 133, 

20 * , Í *9,0 , 1 33,212, 1 *9,0,1 33,213, 1.52,0 , 

1.5 0,0 

1 0 .5 o DATA 17 7,214,224,0,208,2, 132,215, 

2 Ei 9,20 8,2 0 3,4 3,232,228,20 5,240,22,200 , 

1 9.5,205 

10 70 DATA 2 4 0,50 ,72,152,72, 138, 1 .58 , 177 
,214, 1 33,207, 104, 1.58 , 104', 1.55,207,24, 14 
4,219,72 

1 0 8 0 DAT A 1*5,204,133,213,155,20 3 ,, 1 33 , 

2 1 2 , 10 4, 162,0,224,0 ,240,17,224,0,2 4 El 1 ,<5 
, 1.5 0 

1 0 90 DATA 0 , 177,214,1.52,0 , 1.54,2 1.5,20 0 , 

1 9.5,205,208, 1 8.5 , 1.55,208,24, 10 1,205, 1 33 
,208,144 

1 10 0 DAT A 2,230,209, 1 >5 5,2 El 3,2 0 8,5 , 155, 
204,240,7, 198,204, 1 98,20 3,24, 144, 155,9 
5,-1 

2 0 0 0 G RA P H I C S 0 

2010 ? "REGISTRO NO ENCONTRADO" 

2020 FOR PAUSA-1 TO 500¡NEXT PAUSA 
2 £i 3 0 T R A P 4 El 0 0 £i : G OT O 4 30 


A partir del ejemplo dado, se puede utilizar la subrutina 
de máquina para realizar búsqueda de registros dentro de un 
gran string que conforma el archivo, de acuerdo a la aplicación 
particular que cada uno tenga. 

Estudie cuidadosamente el ejemplo y transfórmelo de 
acuerdo a sus propias necesidades. 


... TIPEANDO 
EN ATARI BASIC 


Unos interesantes y atractivos efectos gráficos se pueden lo¬ 
grar con un computador ATARI, utilizando los modos grá¬ 
ficos especiales GRAPHICS 9, 10, 11, denominados modos 
GTI A. 

A continuación encontrará algunos pequeños ejemplos de 
estos modos: 



2 REM CUNOS 
5 DEG 


EN MOVIMIENTOS 


U RA F'H I U 5 1 0 

F O F: 1—0 T O . 


- 2;NEXT 


5+ 1 : PLOT 


350+130 


F'OKE 70 5, 135 

F O R AN G— 1 8 El T O 3 80+ 180 ST E P—8 
X—8 + 8XCOS<AN G> 

Y— 18+8.YSINCANG) 

COLOR (. ANG- 180)745+ 1 : PLOT X , Y 
DPANTO X,50+ Y 
COLOR 0 :P L OT X,Y 
NEXT ANO 

i FOR ANG-180 TO 380+180 STEP 8 
i X — 28+ o ¥CUS(AN G) 

:i Y — 15+8*SI N <: AN G ) 

:i COL OR 9- < ANG- 180) 745 ¡ PLOT X , Y 
) D RAWTO X,50+Y 
') COLOR 0 : PLOT X,Y 
NEXT ANG 

FOR ANG-180. TO 380+ 180 STEP 8 
1 X— 44 + 8*C OS* AN G) 

Y — 1 .5 + 8 * 5 I N r AN G ) 

i CO L O R CANG-180)/45+ 1 :PLOT X,Y 
DRANTO X,50+Y 
COLOR 0:PLOT X,Y 
NEXT ANG 

' F OR AN G=180 TO 380+ 180 STEP 8 

Y — 1 8 + 8 S I N < AN G ) 

COLOR 9 -< ANG - 180)X45 t PLOT X , Y 
DRANTO X,5 0 + Y 
COLOR 0:PLOT X,Y 
NEXT ANG 
G O T O 5 Ei 0 

FOR ANG-180 TO 380+180 STEP 8 
X—50 + 8*COS í ANG) 

Y — 1 5 + 3 Y SIN ( ANG) 

I COLOR (ANG-180)745+1:PLOT X,Y 


4 40 

Y — 1 5- + 3 Y S I N < AN U 


450 

C O L OR (ANG- 18 0 

> 45 + 

460 

DRANTO X,50+Y 


4 70 

C O L O R 0 : P L OT X. 

9 Y 

4 90 

NEXT ANG 


5 0 0 

A—F'EEKC 70 5) 


5 1 0 

FOR 1-705 TO 7 

1 1 

5 2 0 

F'OKE I , PEEKC I + 

i> 

5 3 0 

NEXT I 


5 4 0 

P O K E 7 1 2 , A 


550 

G O T O 50 0 








*aqui opinan 
ios lectores 
de Atari 


El aporte escogido para el presente mes, corresponde al señor 
Guillermo Rioseco Higueras, calle Los Angeles 958 de la 
ciudad de Los Angeles, quien nos hizo llegar el programa 
adjunto, para dibujar en modo gráfico 15. 

El programa requiere sobre 16 KB de memoria libre para 
poder correr, sin embargo, si se reemplaza la línea 200 por 
modo gráfico 14 (GRAPHICS 14), puede ser utilizado con 
menor cantidad de memoria. 

El prograiria de dibujo, permite mover el cursor que apa¬ 
rece en el centro de la pantalla, presionando las teclas de 
flechas: +,—,=, *. Para asignar el color al trazo del dibujo, 
se presionan las teclas A, B, C o D; en que A = COLOR 0 y 
D = COLOR 3. 

Además, presionando simultáneamente las teclas CON¬ 
TROL y Q, se pasa a las opciones para dibujar líneas rectas, 
círculos o rellenar áreas con color. Una vez finalizado el di¬ 
bujo, éste puede ser grabado en cassette para uso posterior, 
presionando la tecla escape ESC. 

Todos los pasos y acciones necesarias para utilizar el 
programa, son explicadas directamente por pantalla mediante 
mensajes. 

Agradecemos y felicitamos al señor Rioseco por su pro¬ 
grama de aporte y lo invitamos a escribirnos, para hacernos 
saber del premio en mercadería que desea obtener, equiva¬ 
lente a $ 6.000 (seis mil pesos), a fin de pqder despacharlo 
a su ciudad. 


1 £1 0 ? " * " : POS I T I ON 5,5:? " UBEUmiiBUHZI 

»=»Ia«UI=IU* " 

1 0 5 ? "ti c u r s- o r •=. © m u ©■y® P r © =- i o n a. n d o 

1 a =. t©c 1 a. •=. con -flechas — > +•? ~ ? & 4 " 

1 1 ü ? " S © a. = i n a. col o r p r © i o n a. n d o 1 a. •=■ 


t ©c 1 a.-s. A-B-C--D 5 A=Co 1 or [ 5 |, B~H, C=H , D—H 

4 " 

1 1 5 ? " P r © s i o n a. n d o WlgMSlilil Q = © puede; 

t r a. z a. r 1 i n © a. » * circuí o -s X reí 1 © n a. r 4 " 

1 2 5 ? " E S P E R E UN M OM ENT O " s G O S U E: 3 0 0 0 


A 


CENTRO ATART 




' " ¡ open « i, 4 ,0 , 

AND A< > 84 THEN 1 


t"-1 O , 


130 •? 4ia,s»aai>«wiMi start Lasarraaiig» w rna" 

1 3 5 I F F‘ E E K < 5 3 2 7 9 ) < > 8 T H E N 1 3 5 

14 0 ? :? 11 WmSSlSSm T 

ü [üiaiuGsni^ c 

rnr 

1 4 5 
" K : 11 

159 GET ttl,A:IF 
56 

155 IF A=¿7 THEN 2300 

20 0 GRA PHICS 1 5 : COLO R 1 :PLOT 0,0 :DRAWT 
O 0,159:DRAWTO 15?, 15?:DRAWT O 159,0 :DR 
ANT O 0 ,0 

20 5 (30SUB 3 10 0 : PL.OT 80,80 

2 10 K== 0 : X 1 = 1 5 9 : X 2= 0 : Y 1—180 q Y 2=0 

22.0 OP-200 0 i MC=2 1 0 0 t KOLOR=220 0 : L I M I TES 

— 3 0 0 

23 0 LIN EA=4 0 0 :CIRCU L 0=50 0 :R E L LEN 0=70 0 

240 REM 

250 GET M 1 ,A 

280 I F Ai =8 1 UR A= 42 OR A=4 3 OR: A=45 TH 
EN G O S U B N C : G OT O 2 5 0 


2* 7 0 

IF A>==85i AND 

A<=68 THEN GOSUB KOLO 

2 8 0 

IF CHPÍ £ A >=" 

r" THEN GOSUB OR 

2* 8 5 

I F A--27 THEN 

2 5 0 0 

2‘ 9 0 

GOTO 250 


3 0 0 

REM LIMITES 

t P L OT 

3 1 0 

C=PEEK(85> :F 

= PEEKC 84) :COLOR 1 s PLOT 

c, 

F:FOR P=1 TO 

5 : N EXT P 

3 2 0 

COLOR KsPLOT 

PEE K (90 .PEE K £ 9 0 :■ 

3 3 0 

REM LIMITES 


3 3 5 

IF K=0 THEN 

3 8 0 

3 ¿10 

IF Xi> C THEN 

:x i=c 

3 5 0 

IF X 2 < C THEN 

X 2= C 

3 éf 0 

IF Y 1> F THEN 

Y 1 --= F 

3 7 O 

IF Y2 < F THEN 

Y 2= F 

3 8 0 

RETURN 


•4 0 0 

REM LINEA 


4 0 5 

?’ " HMu svs ©1 

c u r- ■=• o r- h a. ■=■ t a. © 1 © x t r © 

mo 

d © l a. 1 i n © a. y 

p r e s i o n e ■i".CI«a*l«l L " 

4 1 O 

L=K:K=S 


4 2* 0 

COLOR L : L 1 = PEEK£ 9 1) : L2«=PEEKC 90> 

4 3 0 

GET n 1,A:IF 

;HR*£A)="" " THEN 450 

440 

C=.PEEK<85> s F= 

— PEE!K £ 84'.' : GOSUB MC : GOT 

O 4 

30 


4 5 0 

COLOR L:PLOT 

L1,L2:DRAWTO C,F 

4 ó 0 

K= L : GOSUB 3 10 0 : RETIJRN 

5 Ü 0 

REM CIRCULO 


5 1 0 

L=K:K=0 



5 2 0 T RAP 520: ? " «s waillfl Ingrese radio 

" \ : INPUT R:T RAF 40000 
5 3 0 ? : ? " 1-1 u eva c u r s or h a s t a el centro 

s i e s t a correcto presione MiairMI C" 
540 GET tt 1 , A : I F A=8 1 OR A=42 OR A=43 O 
R A=45 THEN GOSUB MC 


5 5 0 

IF CHRÍ£A)= 

"J" THEN 

K 

= 

LlGOTO 57 

5 é 0 

GOTO 540 





5 7 0 

X=PEEK£91> : 

Y=PEEK£ 90 


s 

COLOR K 

575 

C=X + C £ 0 R 5£ 

0.8:F=Y—S 

<: 

0 

.1 SR : PLOT 

5 3 0 

FOR 1=0 TO 

380 STEP 

2 



5 9 0 

C=X + C £ I :> í£ R^ 0.8 : F=Y — S 

< 

i’ 

> 5£R 

30 0 

DRAWTO C,P: 

G O S U B 3 3 0 




é 1 0 

NEXT I 





é 2 0 

G O S U B 3 1 0 0 : 

RETURN 




7 0 0 

REM RELLENA 





702 IP K=0 THEN K=1 

705 L=K:K=0:POKE 82,0:POKE 83,39 
7 10 ? " tst-lu eva e 1 c u r- sor h as t a el pu n t o 

interior derecho de el ar-ea a reí lena 
r y presione MrtiaUZW R" 

715 GOSUB 795:R1=PEEK(91):R2=PEEK(90) 
720 ? "istiueva el cursor hasta el punto 

superior derecho y presione M<lg »:HH R 

725 GOSUB 795 : R3= PEEK £ 9 1 } : R4=PEEK £ 90 :> 

730 ? "RMueva el cursor hasta el punto 

s u p e r i o r izqui e r d o y p r e s i o n e WBIiam 
R" 

735 GOSUB 795:R3= PEEKÍ 91) :R8= PEEK £ 90 > 
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A CENTRO ATARI 


7 4 0 ■? " ISM u ev a e 1 .. r •=. o r h a. ■=■ t a © 1 o u n t o 

i n f er i or i z qu i er do y pr es i on © MMMMSMW 

R: " 

7 45 G O S LJ B 7 9 5 : R7 = P E E K < 9 1 > : R S= P E E K < '9 0 > 

750 •? " *" : K=L : COLOR K : PLOT R 1 , R2 : DRANT 

O R 3 , R 4 : DRANT O R5 , IR ó : POS I TI ON R7 , RS 
755 POKE 7 ¿5,K 
7 60 X I O 1 8 . #6 , 0 , 0 , " S : " 

7 6 5 P O K E 8 2,2 : P O K E 8 3,3 9 : O O S U B 3 1 0 0 : R E 

TURN 

795 ■ GET W 1 , A : I F A=á i OR A=4 2 Oí? A=4 3 O 

R A»45 THEN GOSUB MC 

7 9 6 I F C H R í C A — " T H EN R ET U RN 

797 GOTO 795 

20 0 0 REM OPEEACI ONES 

20 0 5 9 " nM WBMaHW L = L. i n e a. : ISiSS. MElSI"IC = 

Circulo: WI 8 Ha» H R « Reí 1 en o " r ? " I 8 EBI 


20 10 

GET 

1 , A 



20 2 0 

IF CHRÍ(A) 

= "■ " THEN GOSUB LIMEAsR 

ETURN 




2 0 3 0 

I F C 

HRTCA> 

= THEN GOSUB C-IRCULO 

: RETI 

IJRN 




20 4 0 

I F C 

H Rí' < A > 

= 1 ' —" THEN GO SUB RELLENO 

: RETI 

URN 




2 0 5 0 

GOT O 

2 0 0 0 



^2 10 0 

REM 

MUEVE 

CURSOR* 


21 10 

C = PEÉK <: 85) 

:T%EEK 

8 4 > 

2 1 2 0 

I F A 

=42 THEN POKE 

85 , PEE-K < 9 1 > + 1 : P 

ÜKE 

S 4 , F : 

GOSUB 

L I r 1 I T E s 

: RETURM 

2 1 3 0 

I F A 

=43 THEN POKE 

8 5 , P E E K < 9 1 i - 1 : P 

OKE 

3 4 , F : 

G O 31J B 

L I M I T E S 

: RETURN 

2 14 0 

I F A 

i=45 THEN POKE 

8 4 ,F — 1 :P O K E 85, 

PEE K 

9 1 > : 

G O S U B 

L I M I T E S 

: RETURM 

2 1 50 

IF' A 

i =6 1 THEN POKE 

64,F+1:POKE 85, 

PEE K 

9 1 > : 

G O 3IJ B 

L I M I T E 3 

: RETURM 

2 2 0 0 

REM 

C O L 0 R 



2 2 10 

K=A — 

¿5:RETURM 


2 5 0 0 

REM 

G R A Brt 



2 5 0 5 

rx iwUl.iHnc. i (r : 

ione la 

cinta V presione 

■■na 

ammm ■ 

■RE CO R D-P LAY- 

RETURN!" 


1 0 OREN .„.#2 , 8 ,0 , " C : " s ©RAPHI CS 15+ 32 
15 F O R F I L= Y 1 T O Y 2 ST E P 2 
20 FOR COL—X1 T O X2 

30 LOCATE COL,FIL,W:IF N=0 THEN 2540 
35 RUT «2, COL: PIJT t»2,FIL:PUT #2,W 

4 0 LOCATE COL , F I L+ 1 , W : I F 14 = 0 THEN 2 5 

45 RUT #2, COL: RUT #2,FIL+1:RUT #2,14 

5 0 N EXT COL 
60 N EXT F1L 
65 CLOSE #2 


M MUi Bl < S/N) " ¡ GET ttl,A:IF A<>78 AND 
A <>83 T H EN 2570 

2575 GRAPHICS 0:IF A=83 THEN RUN 
2580 END 

2 6 0 0 R E M INGR E SA DAT O S 
26-05 GRAPHICS 15 
2 6 1 

■■■UPLAY RETURN*" 

26 15 OREN #2,4,0," C.: " 

2620 TRAP 2640:GET #2,C:GET #2,F:GET # 
2,14 


3 tí tí tí L ■ I r I C < 3 6 0 , S 3 6 O > : D E G 

30 ID FOR I 1=0 TO 90 : SOUND 0,N, 10, 12 

3 0 2 0 X = C O S C N > : Y = S I N < N > 

3 0 4 tí S C N ) = Y : C < N + 9 0 > = — Y.: S < N + 1 8 0 > = - Y : C C N 


,±, 

2 !5 

C O L_ 


J 0 

GOT 


-\ 0 

C L O 


1 5 

EM D 

u 

0 l_l 

D I r -1 

0 

l Ú 

F Ü R 

0 

2 :0 

x= c 

0 

3 0 

c ■: n 


0 > 

” —x 

0 

4 0 

s í: n 

2 

0 

> --Y 

0 

'Üi 0 

M EX 

1 

0 0 

H 


4 , 


u 

..i O 

" 

1 

1 0 

? " 

E 

TU 

RM 


u r s. o r : E S C=G r a. b a d i 


... TIPEANDO EN ATARI BASIC 

(CONTINUACION) 

Otros ejemplos interesantes de ver son los siguientes: 


'< E M E A Y OS L A Z E R: 

GRAPHICS 11 
' OLD>.:=-O 
OLDY=0 

y —INT C RND<0 > X80) 

Y = I NT <: RND <: 0 > X 192) 

C=I NT<RND <0 > % 15+ 1 > 

C O L. O R: L 

P L O T O L DX , O L DY 
DPANTO X,Y 
C O L O R 0 • 

3 PLOT OLDX,OLDY 
3 DRANTO X.,Y , 

3 C O L O R C 
3 PLOT OLDX,OLDY 
3 O L DX=X:OLDY=Y 

3 FOR ',.,'9=1 TO 15: SOUND 1,20 0, 

'•79 : SOUND 1,0,0,0 : GOTO 50 


1 ,V9:NE 






1 REM ABANICO 

2 GRAPHICS 9:DEG 
5 PLOT 4 0,0 

2 0 FOR I=-9 0 T O 240 

2 1 X = 3 9' + 3 9 + 3 I M L I ) 

30 COLOR INT < (X-40)X2.5+ 16> 

33 IF X<76 THEN 35 

3 4 C O L O R 0 : G O T O 4 0 

35 I F X >3 9 T H EN C O L O R 16-<X-373X2.5 

3 9 y= 120 + 6 0 X C O S C I > 

4 0 DRANTO X »Y 

50 F'ÜOT 40,0 

60 ... I 

70 FOR X = 0 TO 1 5: SETCOLOR 4,X,0 
80 FOR Y= 1 TO 300:NEXT Y 
9 0 14 EXT X 
100 GOTO 70 
110 GOTO 110 


1 REM HIPNOSYS 

2 D I r 1 A t < 30 "! 

3 A*="h«|ef«a 0=1 ES9 latXtfJUJUl l+AAAAAA" 

10 GRAPHICS 10 

15 FOR 1=1 TO 8 :POKE 70 4+ I , < I - 1> *32+22 
:NEXT I 

3 0 F O R Y = 0 T O 19 1 

4 0 COLOR Q 
50 PLOT 0,Y 

60 D PANTO 79,1,9 1-Y 

7 0 Q=Q+0.4 1 66 6 6666 : IF Q >8 THEN Q=1 
75 REM FOR T=1 TO 180:NEXT T 
80 N EXT Y 
120 Q= 1 

130 FOR X=79 TO 0 STEP -1 

1 4 0 C O L O R Q 
150 PLOT X,0 

160 DRANTO 79—Xj 19 1 

170 Q=Q+1:IF Q >8 THEN Q=1 

180 NEXT X 

190 REM COLOR 0:PLOT 0,0:DRAWTO 79,191 
: PLOT 79,0 :DPANTO 0 , 19 1 
2:0 0 í<= U S R L A D R '1 A't > > 

2 10 FOR -J= 1 TO 4: NEXT --T 
220 GO TO 200 
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CENTRO ATAR ! 4 


esto es, intentar llegar a todos los alumnos, todos los profe¬ 
sores y en lo posible, a un importante número de apoderados 
que se interesen por la práctica de esta tecnología. 

Como proyecto más ambicioso, el Saint Rose School pre- 


ATARI’ 

EN LA EDUCACION 


SAINT ROSE SCHOOL 



como comentábamos en el Boletín del mes pasado en esta 
misma columna, se darán a conocer las experiencias logradas 
a la fecha por los diferentes colegios poseedores de talleres 
computacionales ATARI. 

Este mes expondremos el particular enfoque que le ha 
dado el colegio SAINT ROSE SCHOOL, como lo describe 
uno de sus directivos don José Migue! Oportus. 


"A mediados de 1983, el Saint Rose School decide en conjunto 
con la Dirección del Colegio y el Centro de Padres, introducir 
la computación como un ramo obligatorio del Plan Anual 
para los cursos desde 5o. Básico a 3o. Medio. Luego de un 
acabado estudio de las diferentes alternativas del mercado de 
microcomputadores, se decidió, sobre sólidas bases, instalar 
un taller de computación con equipos ATARI, el que fue 
inaugurado en marzo de 1984. Desde esa fecha han pasado 
centenares de alumnos por este taller, los que han vivido la 
espectacular interacción que se produce entre el estudiante 
y el computador. 

Al frente de estos cursos están los profesores Osmán 
Jofré y Marta Ulloa. La ¡dea básica de esta metodología es 
familiarizar al estudiante con la máquina, de tal modo que 
utilizando su natural creatividad, puede llegar después de un 
tiempo, que hemos estimado en 3 años como mínimo, a un 
importante grado de capacitación para programar sus propias 
inquietudes. 

El Colegio tiene un proyecto que a la fecha no se ha mate¬ 
rializado que consiste en que todos los estamentos participen 
de las ventajas de contar con un taller en su propio local. 


tende instalar un nuevo taller enfocado exclusivamente a los 
alumnos del Primer Ciclo Básico, orientado al lenguaje LOGO, 
que es un sistema altamente motivador como para introducir 
al estudiante en este fascinante campo. 

El Saint Rose School está seguro que la inclusión de la 
computación en todos los ciclos de la educación, ayudará y 
motivará la creatividad del alumnado, así como también ser¬ 
virá para ayudar en el proceso educativo propiamente tal, 
como es la nivelación del alumno, ensayos de pruebas, etc. 

A partir de este año 1985, el Saint Rose School, utiliza 
la computación en su Departamento Administrativo llevando 
el control de matrículas y todo el sistema de evaluación del 
alumno. 

En el aspecto programático de la enseñanza de la compu¬ 
tación, los alumnos tienen, semanalmente, una hora de clases 
sistemáticas y 2 horas de taller controlado y la posibilidad, si 
el alumno así lo desea, taller libre por las tardes." 



Las instalaciones del Colegio Saint Rose School se encuentran 
ubicadas en Av. Manuel Antonio Matta 393, Santiago. 
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CENTRO ATARI’ 

. 1 -s 


— 

OFERTA ESPECIAL 

35 0/o DESCUENTO 

antes $ zsfee 

AHORAS 16.500 

V_ 



ATP- 1064 

EXPANSION DE MEMORIA DE 64 KB 



Una muy' buena noticia para todos los poseedores~de compu¬ 
tadores ATARI 600XL. 

Como una oferta especial del CENTRO ATARI de San¬ 
tiago, se está ofreciendo al público el módulo de expansión 
de memoria ATO-1064, que incrementa la memoria del 
computador 600 XL de 16 KB al máximo de 64 KB de RAM, 
a un precio de oferta de promoción de $ 16.500 con IVA 
incluido. Esta oferta se mantendrá vigente sólo hasta agotar 
el stock. 


A fin de satisfacer tanto a los clientes de Santiago como 
de provincias, se ha ¡mplementado un sistema de atención 
por correo para la compra y despacho de la mercadería. Para 
este efecto, se suministrará el cupón inferior, el cual deberá 
ser remitido a CENTRO ATARI SANTIAGO, Andrés de 
FuenzaUda No. 79; Providencia, Santiago, adjuntando: vale 
vista o cheque cruzado a nombre de COELSA S.A. 

Una vez recibida esta documentación se procederá al des¬ 
pacho de la mercadería. Agradeceremos considerar un tiempo, 
de espera entre. 5 y 10 días para la recepción de la misma. 




CUPON 

ADQUISICION MODULO 
EXPANSION MEMORIA 
ATP-1064 


- , — ' — ^ 

nombre cliente forro I 


factura a nombre de 




RUT 

domicilio para despacho 




ciudad 

Adjurtto: 

□ 

Cheque 




n 

Vale vista No. 

del Banco 



Por la suma de $ 16.500 correspondiente a la compra de un módulo de expansión 
ATARI 1064, a nombre de COELSA S.A. 




NOTA: 

Los datos del cupón 
deben ser llenados 
con letra de imprenta 
o a máquina. 


día 

mes 

año 

_1_ 

_ 1 _ 



firma 









símbolo teclas a presionar 


símbolo teclas a presionar 


GUIA 
PARA TIPEAR 
PROGRAMAS 


Antes de digitar cualquier programa, 
usted se debe familiarizar con su 
computador. Aprenda a usar el teclado 
para digitar y corregir programas 
BASIC. Lea el manual del equipo para 
entender como grabar y cargar sus 
programas BASIC hacia y desde dis- 
kettes o cassette. Para ayudarle con 
la tarea de digitación de los progra¬ 
mas aparecidos en el Boletín Centro 
A TA Rl, éstos vienen impresos tal 
como aparecen en. la pantalla de su 
televisor, incluyendo los caracteres 
gráficos y de control que el progra¬ 
ma tenga incorporados. 

A continuación se entrega un listado 
de los diferentes caracteres o símbolos 
que pueden aparecen en los listados, 
junto a la secuencia que debe presio¬ 
narse para lograrlos. 



CTRL , 


i: 

INVERSO 

CTRL f 


CTRL A 


■ 

I N'v'ERSO 

CTRL 

I 

CTRL B 


u 

INVERSO 

CTRL 

-i 

CTRL C 


:i 

INVERSO 

CTRL 

■i 

CTRL D 


n 

INVERSO 

CTRL 

T 

CTRL E 


Ta 

INVERSO 

CTRL 

/ 

CTRL F 


k? 

INVERSO 

CTRL 

\ 

CTRL G 


r 

INVERSO 

CTRL 

A 

CTRL H 


r 

INVERSO 

CT R L 

■ 

CTRL I 


I 

INVERSO 

CTRL 

k. 

CTRL J 


k 

INVERSO 

CTRL 

■ 

CTRL K 


j 

INVERSO 

CTRL 

■ 

cTrl l 


m 

INVERSO 

CTRL 

— 

CTRL M 


m 

INVERSO 

CTRL 

__ 

CTRL N 


m 

INVERSO 

CTRL 

■ 

CTRL O 


Eí - 

INVERSO 

CTRL 

♦ 

CTRL P 


n 

INVERSO 

CTRL 

r 

CTRL Q 



INVERSO 

CTRL 

— 

CTRL R 


■ ■ 
■ ■ 

INVERSO 

CTRL 

+ 

CTRL S 


n 

INVERSO 

CTRL 

• 

CTRL T 



INVERSO 

CTRL 


CTRL IJ 


■ 

INVERSO 

CTRL 

i 

CTRL 


- 

INVERSO 

CTRL 

T* 

CTRL N 



INVERSO 

CTRL 

Ju 

CTRL X 


1 

INVERSO 

CTRL 

i 

CTRL Y 


U 

INVERSO 

CTRL 

L. 

CTRL 2 


a 

ESC SHIFT DEL 


ESC ESC 

t 

n 

ESC SHIFT INS 


ESC CTRL 

□ 

ESC SHIFT TAB 

* 

ESC CTRL 

l 

□ 

ESC SHIFT TAB 

<r 

ESC CTRL 


■ 

INVERSO 

BARRA 

♦ 

CTRL . 


9 
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